set more off 
mata: mata set matafavor speed, perm

use "E:\隨身硬碟備份\E\TRY\findev_2017\Fin_Co2_pol_2020\program\n82_4y_8417_use.dta",clear
tsset id period

***Table 5. Effects of bank credit composition***

**political rights**
*column(1). credit composition, CV and CO2*
xtabond2 lnav_co2pc c.lnav_borhh c.lnav_borfm c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1))             gmm(c.lnav_borfm, lag(2 2))   ///    
gmm(c.sc_right,   lag(1 2)) ///
gmm(c.lnav_gdp,   lag(2 2) orthogonal)  gmm(c.lnav_gdp#c.lnav_gdp, lag(2 2)) ///  
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(2). Nonlinear-credit composition, CV and CO2*
xtabond2 lnav_co2pc c.lnav_borhh c.lnav_borhh#c.sc_right c.lnav_borfm c.lnav_borfm#c.sc_right c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 2))               gmm(c.lnav_borhh#c.sc_right, lag(2 2) orthogonal) ///
gmm(c.lnav_borfm, lag(2 2))               gmm(c.lnav_borfm#c.sc_right, lag(2 2) collapse ) ///
gmm(c.sc_right,   lag(2 2)) ///
gmm(c.lnav_gdp,   lag(2 2) orthogonal)    gmm(c.lnav_gdp#c.lnav_gdp,   lag(1 1)  ) ///  
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(3). credit composition, CV and Energy use*
xtabond2 lnav_engpc c.lnav_borhh c.lnav_borfm c.sc_right c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1))        gmm(c.lnav_borfm, lag(2 2))   ///
gmm(c.sc_right,   lag(3 3)) ///
gmm(c.lnav_gdp,   lag(3 5))        gmm(c.lnav_gdp#c.lnav_gdp,lag(3 4)) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(4). Nonlinear-credit composition, CV and Energy use*
xtabond2 lnav_engpc c.lnav_borhh c.lnav_borhh#c.sc_right c.lnav_borfm c.lnav_borfm#c.sc_right c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 3) collapse)         gmm(c.lnav_borhh#c.sc_right, lag(1 3) orthogonal) ///
gmm(c.lnav_borfm, lag(3 3) orthogonal)       gmm(c.lnav_borfm#c.sc_right, lag(2 2) orthogonal) ///
gmm(c.sc_right,   lag(2 2) collapse) ///
gmm(c.lnav_gdp,   lag(2 2))   gmm(c.lnav_gdp#c.lnav_gdp,   lag(1 2)) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(5). credit composition, CV and Green technology*
xtabond2 lnav_techpc c.lnav_borhh c.lnav_borfm c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ///
ln_trad0 ln_urb0 ln_sec0 ln_inds0,  ///
gmm(c.lnav_borhh, lag(1 1))         ///
gmm(c.lnav_borfm, lag(2 2)  )       ///
gmm(c.sc_right,   lag(1 1)collapse)       ///
gmm(c.lnav_gdp,   lag(1 1))              gmm(c.lnav_gdp#c.lnav_gdp,   lag(1 2)) ///  
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0)  ///
twostep small
*column(6). Nonlinear-credit composition, CV and Green technology*
xtabond2 lnav_techpc c.lnav_borhh c.lnav_borhh#c.sc_right c.lnav_borfm c.lnav_borfm#c.sc_right c.sc_right ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(2 2) orthogonal)      gmm(c.lnav_borhh#c.sc_right, lag(1 2) orthogonal) ///
gmm(c.lnav_borfm, lag(2 2) )                gmm(c.lnav_borfm#c.sc_right, lag(2 2) collapse ) ///
gmm(c.sc_right,   lag(1 1) collapse) ///
gmm(c.lnav_gdp,   lag(1 2)   )   gmm(c.lnav_gdp#c.lnav_gdp,   lag(1 1) ) ///  
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small

**democratic accountability**
*column(7). Nonlinear-credit composition, CV and CO2*
xtabond2 lnav_co2pc c.lnav_borhh c.lnav_borhh#c.sc_da c.lnav_borfm c.lnav_borfm#c.sc_da c.sc_da ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)   gmm(c.lnav_borhh#c.sc_da,   lag(2 2) orthogonal) ///
gmm(c.lnav_borfm, lag(3 3) )             gmm(c.lnav_borfm#c.sc_da,   lag(2 2) collapse) ///
gmm(c.sc_da,      lag(1 1) ) ///
gmm(c.lnav_gdp,   lag(2 2) )   gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 2) ) ///  
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(8). Nonlinear-credit composition, CV and Energy use*
xtabond2 lnav_engpc c.lnav_borhh c.lnav_borhh#c.sc_da c.lnav_borfm c.lnav_borfm#c.sc_da c.sc_da ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)   gmm(c.lnav_borhh#c.sc_da,   lag(3 3) orthogonal) ///
gmm(c.lnav_borfm, lag(3 3) )             gmm(c.lnav_borfm#c.sc_da,   lag(3 3) collapse) ///
gmm(c.sc_da,      lag(2 3) ) ///
gmm(c.lnav_gdp,   lag(3 3))   gmm(c.lnav_gdp#c.lnav_gdp,  lag(2 4) orthogonal) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(9). Nonlinear-credit composition, CV and Green technology*
xtabond2 lnav_techpc c.lnav_borhh c.lnav_borhh#c.sc_da c.lnav_borfm c.lnav_borfm#c.sc_da c.sc_da ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)   gmm(c.lnav_borhh#c.sc_da,   lag(3 3) orthogonal) ///
gmm(c.lnav_borfm, lag(3 3))              gmm(c.lnav_borfm#c.sc_da,   lag(3 5) collapse) ///
gmm(c.sc_da,      lag(2 3)) ///
gmm(c.lnav_gdp,   lag(3 3))   gmm(c.lnav_gdp#c.lnav_gdp,  lag(2 4) orthogonal) ///  
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small

**democracy-polity2**
*column(10). Nonlinear-credit composition, CV and CO2*
xtabond2 lnav_co2pc c.lnav_borhh c.lnav_borhh#c.sc_pol c.lnav_borfm c.lnav_borfm#c.sc_pol c.sc_pol ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)       gmm(c.lnav_borhh#c.sc_pol,   lag(2 2) orthogonal) ///
gmm(c.lnav_borfm, lag(2 3) collapse)         gmm(c.lnav_borfm#c.sc_pol,   lag(2 2) collapse) ///
gmm(c.sc_pol,     lag(2 2) orthogonal) ///
gmm(c.lnav_gdp,   lag(2 2) )   gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 2) ) ///  
iv(ln_co2pc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(11). Nonlinear-credit composition, CV and Energy use*
xtabond2 lnav_engpc c.lnav_borhh c.lnav_borhh#c.sc_pol c.lnav_borfm c.lnav_borfm#c.sc_pol c.sc_pol ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)       gmm(c.lnav_borhh#c.sc_pol,   lag(1 1)orthogonal ) ///
gmm(c.lnav_borfm, lag(2 2) )         gmm(c.lnav_borfm#c.sc_pol,   lag(1 2) collapse) ///
gmm(c.sc_pol,     lag(1 2) collapse) ///
gmm(c.lnav_gdp,   lag(2 2) )   gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 2) ) ///  
iv(ln_engpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small
*column(12). Nonlinear-credit composition, CV and Green technology*
xtabond2 lnav_techpc c.lnav_borhh c.lnav_borhh#c.sc_pol c.lnav_borfm c.lnav_borfm#c.sc_pol c.sc_pol ///
c.lnav_gdp c.lnav_gdp#c.lnav_gdp ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0, ///
gmm(c.lnav_borhh, lag(1 1) orthogonal)       gmm(c.lnav_borhh#c.sc_pol,   lag(1 1) orthogonal) ///
gmm(c.lnav_borfm, lag(1 1))                  gmm(c.lnav_borfm#c.sc_pol,   lag(2 2) collapse) ///
gmm(c.sc_pol,     lag(1 2) collapse) ///
gmm(c.lnav_gdp,   lag(1 1))   gmm(c.lnav_gdp#c.lnav_gdp,  lag(1 1) ) ///  
iv(ln_techpc0 ln_trad0 ln_urb0 ln_sec0 ln_inds0) ///
twostep small

log close
clear
